home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / JTools / Janim / tests / test_conversion.f < prev   
Encoding:
FORTH Source  |  1992-01-28  |  1.8 KB  |  109 lines
  1. \ Simple Tests of JANIM:
  2. \
  3. \ Author: Phil Burk
  4. \ Copyright 1992 Phil Burk
  5.  
  6. include janim:load_anim
  7.  
  8. ANEW TASK-TEST_CONVERSION
  9.  
  10. \ Declare some common objects.
  11.  
  12. 10 value FRAME_DELAY
  13.  
  14. Picture        MY-PIC-1
  15. AnimBrush    MY-ABR-1
  16. Animation    MY-ANIM-1
  17.  
  18. \ Convert an animbrush to an ANIM
  19.  
  20. : CAA.TERM ( -- )
  21.     my-abr-1 abr.free
  22.     my-anim-1 anim.free
  23.     my-pic-1 pic.free
  24.     gr.term
  25. ;
  26.  
  27. if.forgotten caa.term
  28.  
  29. : CAA.SHOW.ABR { abr -- }
  30.     BEGIN
  31.         50 20 abr abr.blit
  32.         abr abr.last.frame?
  33.         ?terminal OR
  34.         ?closebox OR not
  35.     WHILE
  36.         abr abr.advance
  37.         frame_delay wait.frames
  38.     REPEAT
  39. ;
  40.  
  41. : CAA.SHOW.ANIM { anim -- , show it once }
  42.     anim anim.rewind
  43.     BEGIN
  44.         10 10 anim s@ an_displaying pic.blit
  45.         frame_delay wait.frames
  46.         anim anim.advance? ?goto.error
  47.         anim anim.last.frame?
  48.         ?terminal OR
  49.         ?closebox OR
  50.     UNTIL
  51. error:
  52. ;
  53.  
  54. : CONVERT.ABR>ANIM ( -- )
  55.     gr.init
  56.     " JPics:Mountains.pic" my-pic-1 $pic.load? ?goto.error
  57.     " JPics:Bird.anbr" my-abr-1 $abr.load? ?goto.error
  58. \
  59.     my-abr-1 abr.stats
  60. \
  61. \ show brush
  62.     my-abr-1 caa.show.abr
  63. \
  64. \ convert animbrush to anim
  65.     my-abr-1 my-anim-1 animbrush>anim? ?goto.error
  66.     ." Animbrush converted!" cr
  67. \
  68.     my-anim-1 caa.show.anim
  69. \
  70.     " Ram:newanim" my-anim-1 $anim.save? ?goto.error
  71.     ." Saved to Ram:newAnim" cr
  72.     my-anim-1 anim.stats
  73. \
  74.     caa.term
  75.     exit
  76. error:
  77.     ." Error!" cr
  78.     caa.term
  79. ;
  80.  
  81.  
  82. : CONVERT.ANIM>ABR ( -- >
  83.     gr.init
  84.     " JPics:Mountains.pic" my-pic-1 $pic.load? ?goto.error
  85.     " RAM:NewAnim" my-anim-1 $anim.load? ?goto.error
  86.     my-anim-1 anim.stats cr
  87. \
  88.     my-anim-1 caa.show.anim
  89. \
  90.     my-anim-1 my-abr-1 anim>animbrush? ?goto.error
  91.     ." Anim converted!" cr
  92. \
  93. \ show new brush
  94.     my-abr-1 caa.show.abr
  95. \
  96.     " Ram:NewAbr" my-abr-1 $abr.save? ?goto.error
  97.     ." Saved in Ram:NewAbr" cr
  98.     my-abr-1 abr.stats
  99. \
  100.     caa.term
  101.     exit
  102. ERROR:
  103.     ." Error!" cr
  104.     caa.term
  105. ;
  106.  
  107. ." Enter: CONVERT.ABR>ANIM" cr
  108. ." then:  CONVERT.ANIM>ABR" cr
  109.